home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / lights22 / weep.cpr / SSCOMMON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-22  |  1.9 KB  |  70 lines
  1. unit ssCommon;
  2.  
  3.  
  4. interface
  5.  
  6. uses WinProcs, WinTypes;
  7.  
  8. const cColorCircle = 30;
  9.  
  10. const ColorValues: array [0..5]of byte =
  11.    (0, 65, 110, 155, 205, 255);    { farbabstufungen }
  12. {             133  180  230     }
  13. {    40  90       168           }
  14.  
  15.                                    { farbabstufungen bei grundfarben }
  16.       ColorValuesBase: array [0..8] of byte =
  17.    (0, 65, 110, 133, 155, 180, 205, 230, 255);
  18.  
  19.                                    { graustufen }
  20.       ColorValuesGrey: array [0..11] of byte =
  21.    (0, 40, 65, 90, 110, 133, 155, 168, 180, 205, 230, 255);
  22.  
  23.       ColorIndexesColorScales :array[0..55] of byte =
  24.     (11, 12, 235, 13, 236, 14, 237, 15,  { blau }
  25.      16, 22, 229, 28, 230, 34, 231, 40,  { grⁿn }
  26.      17, 24, 241, 31, 242, 38, 243, 45,  { cyan }
  27.      46, 82, 226,118, 227,154, 228,190,  { rot }
  28.      47, 84, 238,121, 239,158, 240,195,  { magenta }
  29.      52, 94, 232,136, 233,178, 234,220,  { gelb }
  30.      10, 53,  96,244, 139,245, 182,225 );{ wei▀ }
  31.  
  32. (*      ColorIndexesGreyScales: array [0..11]of byte =
  33.      (0, 237, 43, 238, 86, 234,129, 239, 235,172, 236,215);*)
  34.  
  35.       ColorIndexesGreyScales: array [0..7]of byte =
  36.      (10, 53, 96, 244,139, 245,182, 225);
  37.  
  38. {  1         6       36
  39.    2        12       72
  40.    3        18      108
  41.    4        24      144
  42.    5        30      180
  43. }
  44. type
  45.      TColorPalette = record
  46.         palVersion: Word;
  47.         palNumEntries: Word;
  48.     palPalEntry: array[0..255] of TPaletteEntry;
  49.      end;
  50.  
  51.      TColorCircle = array [0..cColorCircle - 1] of Byte;
  52.  
  53.      PInterface = ^TInterface;
  54.      TInterface = record
  55.         lSize:  LongInt;
  56.         lLevel: LongInt;
  57.     lMagic: LongInt;
  58.     lCaller: LongInt; { 1: LGD, 2: Randomizer }
  59. {        hwndParent: hWnd;}
  60.         cp: TColorPalette;
  61.         hpal: HPalette;
  62.         lUser1, lUser2: LongInt;
  63.         cColors: integer;
  64.         ColorCircle: TColorCircle;
  65.      end;
  66.  
  67. implementation
  68.  
  69. end.
  70.